f.base <- y ~ age + Female + PartySummary + Black + Hispanic + CollegeDegree + Income_Incl + employfull
f.inter <- y ~ age + Female + Black + Hispanic + CollegeDegree + Income_Incl + employfull
controls <- "age + Female + Black + Hispanic + CollegeDegree + Income_Incl + employfull"